home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / remaxap.bak < prev    next >
Encoding:
Text File  |  1994-06-27  |  6.2 KB  |  262 lines
  1. * This program reads in raw data from remax in the specified format
  2. * It replaces the remax.ap file and awk
  3.  
  4. new = FCREATE("RMXDTA.TXT")
  5.  
  6. handle = FOPEN("NAME.dat")
  7.  
  8. *IF handle < 0
  9. *    DEFINE WINDOW alert FROM 7,17 TO 12,60 DOUBLE COLOR SCHEME 7
  10.     
  11. *    DO CASE
  12. *        CASE FERROR() = 4
  13. *            reason = 'Too many files Open'
  14. *        CASE FERROR() = 5
  15. *            reason = 'Access Denied'
  16. *        CASE FERROR() = 8
  17. *            reason = 'Out of Memory'
  18. *        CASE FERROR() = 31
  19. *            reason = 'GENERAL FAILURE'
  20. *    ENDCASE
  21.     
  22. *   CANCEL
  23.     
  24. * ENDIF
  25.  
  26. *DO WHILE NOT FEOF(handle)
  27.  
  28.     Region = FREAD(handle, 2)
  29.     Office = FREAD(handle, 3)
  30.     Number = FREAD(handle, 3)
  31.     Unique = FREAD(handle,12)
  32.     Name = FREAD(handle, 30)
  33.     Nick = FREAD(handle, 20)
  34.     Title = FREAD(handle, 2)
  35.     Posistion = FREAD(handle, 30)
  36.     Spec1 = FREAD(handle, 3)
  37.     Spec2 = FREAD(handle, 3)
  38.     Lang1 = FREAD(handle, 20)
  39.     Lang2 = FREAD(handle, 20)
  40.     Lang3 = FREAD(handle, 20)
  41.     License = FREAD(handle, 4)
  42.     Join = FREAD(handle, 4)
  43.     Sales = FREAD(handle, 6)
  44.     Desig1 = FREAD(handle, 6)
  45.     Desig2 = FREAD(handle, 6)
  46.     Desig3 = FREAD(handle, 6)
  47.     Desig4 = FREAD(handle, 6)
  48.     Desig5 = FREAD(handle, 6)
  49.     Desig6 = FREAD(handle, 6)
  50.     Club = FREAD(handle, 4)
  51.     ROF = FREAD(handle, 12)
  52.     Comm1 = FREAD(handle, 1)
  53.     Comm2 = FREAD(handle, 1)
  54.     Comm3 = FREAD(handle, 1)
  55.     Comm4 = FREAD(handle, 1)
  56.     Comm5 = FREAD(handle, 1)
  57.     skip = FSEEK(handle, 5, 1)
  58.     OffName = FREAD(handle, 30)
  59.     OffAdd1 = FREAD(handle, 30)
  60.     OffAdd2 = FREAD(handle, 30)
  61.     City = FREAD(handle, 17)
  62.     State = FREAD(handle, 2)
  63.     Zip = FREAD(handle, 10)
  64.     Country = FREAD(handle, 20)
  65.     Phone1 = FREAD(handle, 12)
  66.     Phone2 = FREAD(handle, 12)
  67.     Phone3 = FREAD(handle, 12)
  68.     Phone4 = FREAD(handle, 12)
  69.     FAX = FREAD(handle, 12)
  70.     Service1 = FREAD(handle, 20)
  71.     Service2 = FREAD(handle, 20)
  72.     Service3 = FREAD(handle, 20)
  73.     Service4 = FREAD(handle, 20)
  74.     Open = FREAD(handle, 6)
  75.     ADI = FREAD(handle, 20)
  76.     Page = FREAD(handle, 4)
  77.     Coor = FREAD(handle, 2)
  78.     OffType = FREAD(handle, 2)
  79.     CityOver = FREAD(handle, 17)
  80.     RosterSta = FREAD(handle, 30)
  81.     Rams = FREAD(handle, 15)
  82.     Achiev = FREAD(handle, 20)
  83.     COMPUSERV = FREAD(handle, 17)
  84.  
  85. * START READING BIO INFO    
  86.  
  87.     PhoneLoc = FREAD(handle, 12)
  88.     HomePhone = FREAD(handle, 12)
  89.     AgntFax = FREAD(handle, 12)
  90.     AgntPager = FREAD(handle, 12)
  91.     AgntMobile = FREAD(handle, 12)
  92.     CIVIC1 = FREAD(handle, 4)
  93.     CIVIC2 = FREAD(handle, 4)
  94.     CIVIC3 = FREAD(handle, 4)
  95.     HOBBY1 = FREAD(handle, 4)
  96.     HOBBY2 = FREAD(handle, 4)
  97.     HOBBY3 = FREAD(handle, 4)
  98.     MEMBER1 = FREAD(handle, 4)
  99.     MEMBER2 = FREAD(handle, 4)
  100.     MEMBER3 = FREAD(handle, 4)
  101.     Service1 = FREAD(handle, 20)
  102.     Service2 = FREAD(handle, 20)
  103.     Service3 = FREAD(handle, 20)
  104.     Service4 = FREAD(handle, 20)
  105.     Service5 = FREAD(handle, 20)
  106.     Education = FREAD(handle, 15)
  107.     Desig1 = FREAD(handle, 10)
  108.     Desig2 = FREAD(handle, 10)
  109.     Desig3 = FREAD(handle, 10)
  110.     Career = FREAD(handle, 40)
  111.     Price_fr = FREAD(handle, 12)
  112.     Price_to = FREAD(handle, 12)
  113.     Pref = FREAD(handle, 1)
  114.     Referal1 = FREAD(handle, 1)
  115.     Referal2 = FREAD(handle, 1)
  116.     Referal3 = FREAD(handle, 1)
  117.     Referal4 = FREAD(handle, 1)
  118.     ERCPaper = FREAD(handle, 1)
  119.     Welcomekit = FREAD(handle, 1)
  120.     Relocations = FREAD(handle, 58)
  121.     Picture = FREAD(handle, 1)
  122.     EntryDate = FREAD(handle, 6)
  123.     BioSubs = FREAD(handle, 6)
  124.     Info = FGETS(handle, 480)
  125.     
  126. * START BIO INFO
  127.     
  128.     =FWRITE(new, Region)
  129.     =FWRITE(new, ';')
  130.     =FWRITE(new, Office)
  131.     =FWRITE(new, ';')
  132.     =FWRITE(new, Number)
  133.     =FWRITE(new, ';')    
  134.     =FWRITE(new, Unique)
  135.     =FWRITE(new, ';"')    
  136.     =FWRITE(new, TRIM(Name))
  137.     =FWRITE(new, '";')    
  138.  
  139.     IF NOT EMPTY(TRIM(Nick))
  140.         =FWRITE(new, '"'+Nick+'"')
  141.     ELSE
  142.         =FWRITE(new, ';')
  143.     ENDIF
  144.  
  145.     IF NOT EMPTY(TRIM(Title))
  146.         =FWRITE(new, '"'+Title+'"')
  147.     ELSE
  148.         =FWRITE(new, ';')
  149.     ENDIF
  150.  
  151.     IF NOT EMPTY(TRIM(Posistion))
  152.         =FWRITE(new, '"'+Posistion+'"')
  153.     ELSE
  154.         =FWRITE(new, ';')
  155.     ENDIF
  156.     
  157.     IF NOT EMPTY(TRIM(Spec1))
  158.         =FWRITE(new, '"'+Spec1+'"')
  159.     ELSE
  160.         =FWRITE(new, ';')
  161.     ENDIF
  162.         
  163.     IF NOT EMPTY(TRIM(Posistion))
  164.         =FWRITE(new, '"'+Posistion+'"')
  165.     ELSE
  166.         =FWRITE(new, ';')
  167.     ENDIF
  168.  
  169.  
  170.     =FWRITE(new, TRIM(Lang1))
  171.     =FWRITE(new, '";"')    
  172.     =FWRITE(new, TRIM(Lang2))
  173.     =FWRITE(new, '";"')    
  174.     =FWRITE(new, TRIM(Lang3))
  175.     =FWRITE(new, '";"')    
  176.     =FWRITE(new, TRIM(License))
  177.     =FWRITE(new, '";"')    
  178.     =FWRITE(new, TRIM(Join))
  179.     =FWRITE(new, '";"')    
  180.     =FWRITE(new, TRIM(Sales))
  181.     =FWRITE(new, '";"')    
  182.     =FWRITE(new, TRIM(Desig1))
  183.     =FWRITE(new, '";"')    
  184.     =FWRITE(new, TRIM(Desig2))
  185.     =FWRITE(new, '";"')    
  186.     =FWRITE(new, TRIM(Desig3))
  187.     =FWRITE(new, '";"')    
  188.     =FWRITE(new, TRIM(Desig4))
  189.     =FWRITE(new, '";"')    
  190.     =FWRITE(new, TRIM(Desig5))
  191.     =FWRITE(new, '";"')    
  192.     =FWRITE(new, TRIM(Desig6))
  193.     =FWRITE(new, '";"')    
  194.     =FWRITE(new, TRIM(Club))
  195.     =FWRITE(new, '";"')    
  196.     =FWRITE(new, TRIM(ROF))
  197.     =FWRITE(new, '";"')    
  198.     =FWRITE(new, TRIM(Comm1))
  199.     =FWRITE(new, '";"')    
  200.     =FWRITE(new, TRIM(Comm2))
  201.     =FWRITE(new, '";"')    
  202.     =FWRITE(new, TRIM(Comm3))
  203.     =FWRITE(new, '";"')    
  204.     =FWRITE(new, TRIM(Comm4))
  205.     =FWRITE(new, '";"')    
  206.     =FWRITE(new, TRIM(Comm5))
  207.     =FWRITE(new, '";"')    
  208.     =FWRITE(new, TRIM(OffName))
  209.     =FWRITE(new, '";"')    
  210.     =FWRITE(new, TRIM(OffAdd1))
  211.     =FWRITE(new, '";"')    
  212.     =FWRITE(new, TRIM(OffAdd2))
  213.     =FWRITE(new, '";"')    
  214.     =FWRITE(new, TRIM(City))
  215.     =FWRITE(new, '";"')    
  216.     =FWRITE(new, TRIM(State))
  217.     =FWRITE(new, '";')    
  218.     =FWRITE(new, TRIM(Zip))
  219.     =FWRITE(new, ';"')    
  220.     =FWRITE(new, TRIM(Country))
  221.     =FWRITE(new, '";"')    
  222.     =FWRITE(new, TRIM(Phone1))
  223.     =FWRITE(new, '";"')
  224.     =FWRITE(new, TRIM(Phone2))
  225.     =FWRITE(new, '";"')
  226.     =FWRITE(new, TRIM(Phone3))
  227.     =FWRITE(new, '";"')    
  228.     =FWRITE(new, TRIM(Phone4))
  229.     =FWRITE(new, '";"')    
  230.     =FWRITE(new, TRIM(FAX))
  231.     =FWRITE(new, '";"')    
  232.     =FWRITE(new, TRIM(Service1))
  233.     =FWRITE(new, '";"')    
  234.     =FWRITE(new, TRIM(Service2))
  235.     =FWRITE(new, '";"')    
  236.     =FWRITE(new, TRIM(Service3))
  237.     =FWRITE(new, '";"')    
  238.     =FWRITE(new, TRIM(Service4))
  239.     =FWRITE(new, '";"')    
  240.     =FWRITE(new, TRIM(Open))
  241.     =FWRITE(new, '";"')    
  242.     =FWRITE(new, TRIM(ADI))
  243.     =FWRITE(new, '";"')    
  244.     =FWRITE(new, TRIM(Page))
  245.     =FWRITE(new, '";"')    
  246.     =FWRITE(new, TRIM(Coor))
  247.     =FWRITE(new, '";"')    
  248.     =FWRITE(new, TRIM(OffType))
  249.     =FWRITE(new, '";"')    
  250.     =FWRITE(new, TRIM(CityOver))
  251.     =FWRITE(new, '";"')    
  252.     =FWRITE(new, TRIM(RosterSta))
  253.     =FWRITE(new, '";"')    
  254.     =FWRITE(new, TRIM(Rams))
  255.     =FWRITE(new, '";"')    
  256.     =FWRITE(new, TRIM(Achiev))
  257.     =FWRITE(new, '";"')    
  258.     =FWRITE(new, TRIM(COMPUSERV))
  259.     =FWRITE(new, '";"')
  260.     
  261. *ENDDO
  262.